-- card: 4285 from stack: in.___ -- bmap block id: 2343 -- flags: 4000 -- background id: 2739 -- name: Birthday ----- HyperTalk script ----- on openCard hide Menubar ask "What is your name?" with "Bozo" put It into Bname ask "In what year were you born?" with "1957" put It into Byear if Byear is " " then beep ask "Which year?" end if put It into Byear ask "In what month were you born?" with "Mar" put It into Bmonth if Bmonth is " " then beep ask "Which month?" end if put It into Bmonth if length of Bmonth > 3 then put char 1 of Bmonth & char 2 of Bmonth & char 3 of Bmonth into Bmonth end if ask "On what day were you born?" with "12" put It into Bday if Bday is " " then beep ask "Which day?" end if put It into Bday if Bday > 31 then put 31 into Bday answer "Thanks, "&Bname put Bmonth&" "&Bday&", "&Byear into card field "Date" of card "Birthday" put Byear - 1902 into lineno put line lineno of field 1 of card "Headline" into card field "Hline" of card "Birthday" put line lineno of field 1 of card "Nobel" into card field "Nobel" of card "Birthday" put word 3 of line lineno of field 1 of card "Sports" into league if league is "A" then put "American" into league else put "National" into league end if put "World Series won by "&league&" League: "& word 2 of line lineno of field 1 of card "Sports" into card field "WSeries" of card "Birthday" put "Ky Derby winner: "&word 4 of line lineno of field 1 of card "Sports" into card field "Derby" of card "Birthday" put "Tennis Davis Cup won by: "&word 5 of line lineno of field 1 of card "Sports" into card field "Davis" of card "Birthday" if Byear > 1910 then put "Indy 500 winning driver: "&word 6 of line lineno of field 1 of card "Sports" into card field "Indy500" of card "Birthday" end if if Byear > 1936 then put "NCAA Football Champs: "&word 7 of line lineno of field 1 of card "Sports" into card field "NCAA" of card "Birthday" end if if Byear > 1966 then put "SuperBowl winner: " & word 8 of line lineno of field 1 of card "Sports" into card field "SBowl" of card "Birthday" end if put Bname into card field "Bname" of card "Birthday" put Bday + 2 into lineno put line lineno of field 1 of card Bmonth into card field "Famous" of card "Birthday" put line 1 of field 1 of card Bmonth into card field "Birthstone" of card "Birthday" put line 2 of field 1 of card Bmonth into card field "Birthflower" of card "Birthday" if Byear > 1927 then put Byear - 1927 into lineno put word 2 of line lineno of field 1 of card "Oscar" into card field "Actress" of card "Birthday" put word 3 of line lineno of field 1 of card "Oscar" into card field "Actor" of card "Birthday" put empty into title put empty into thisword repeat with count = 4 to 10 put word count of line lineno of field 1 of card "Oscar" into thisword put title &" "& thisword into title end repeat put title into card field "BestPic" of card Birthday end if if Bmonth is "Jan" and Bday < 21 then put "CAPRICORN Dec 22 - Jan 20" into card field "Zodiac" else if Bmonth is "Jan" and Bday > 20 then put "AQUARIUS Jan 21 - Feb 19" into card field "Zodiac" else if Bmonth is "Feb" and Bday < 20 then put "AQUARIUS Jan 21 - Feb 19" into card field "Zodiac" else if Bmonth is "Feb" and Bday > 19 then put "PISCES Feb 20 - Mar 20" into card field "Zodiac" else if Bmonth is "Mar" and Bday < 21 then put "PISCES Feb 20 - Mar 20" into card field "Zodiac" else if Bmonth is "Mar" and Bday > 20 then put "ARIES Mar 21 - Apr 19" into card field "Zodiac" else if Bmonth is "Apr" and Bday < 20 then put "ARIES Mar 21 - Apr 19" into card field "Zodiac" else if Bmonth is "Apr" and Bday > 19 then put "TAURUS Apr 20 - May 20" into card field "Zodiac" else if Bmonth is "May" and Bday < 21 then put "TAURUS Apr 20 - May 20" into card field "Zodiac" else if Bmonth is "May" and Bday > 20 then put "GEMINI May 21 - Jun 21" into card field "Zodiac" else if Bmonth is "Jun" and Bday < 22 then put "GEMINI May 21 - Jun 21" into card field "Zodiac" else if Bmonth is "Jun" and Bday > 21 then put "CANCER Jun 22 - Jul 21" into card field "Zodiac" else if Bmonth is "Jul" and Bday < 22 then put "CANCER Jun 22 - Jul 21" into card field "Zodiac" else if Bmonth is "Jul" and Bday > 21 then put "LEO Jul 22 - Aug 21" into card field "Zodiac" else if Bmonth is "Aug" and Bday < 22 then put "LEO Jul 22 - Aug 21" into card field "Zodiac" else if Bmonth is "Aug" and Bday > 21 then put "VIRGO Aug 22 - Sep 22" into card field "Zodiac" else if Bmonth is "Sep" and Bday < 23 then put "VIRGO Aug 22 - Sep 22" into card field "Zodiac" else if Bmonth is "Sep" and Bday > 22 then put "LIBRA Sep 23 - Oct 22" into card field "Zodiac" else if Bmonth is "Oct" and Bday < 23 then put "LIBRA Sep 23 - Oct 22" into card field "Zodiac" else if Bmonth is "Oct" and Bday > 22 then put "SCORPIO Oct 23 - Nov 21" into card field "Zodiac" else if Bmonth is "Nov" and Bday < 22 then put "SCORPIO Oct 23 - Nov 21" into card field "Zodiac" else if Bmonth is "Nov" and Bday > 21 then put "SAGITTARIUS Nov 22 - Dec 21" into card field "Zodiac" else if Bmonth is "Dec" and Bday < 22 then put "SAGITTARIUS Nov 22 - Dec 21" into card field "Zodiac" else if Bmonth is "Dec" and Bday > 21 then put "CAPRICORN Dec 22 - Jan 20" into card field "Zodiac" put 1 into horo end if if Byear/4 = trunc(Byear/4) then put (Byear/4)-475 into lineno put line lineno of field 1 of card "Olympics" into oly if oly is not empty then put "Olympics at: " & oly into card field "Olympics" of card "Birthday" end if end if if Byear = 1906 then put "Olympics held in Athens" into card field "Olympics" of card "Birthday" end openCard on closeCard repeat with count = 1 to 18 put empty into card field count end repeat end closeCard -- part 1 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=11 top=34 right=64 bottom=49 -- title width / last selected line: 0 -- icon id / first selected line: 1011 / 1011 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- on mouseUp visual effect iris close go home end mouseUp -- part 2 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=49 top=34 right=64 bottom=78 -- title width / last selected line: 0 -- icon id / first selected line: 9761 / 9761 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- on mouseUp visual effect dissolve go to next card end mouseUp -- part 3 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=384 top=40 right=56 bottom=491 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 256 -- line height: 13 -- part name: Date -- part 4 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=10 top=63 right=89 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 20 -- style flags: 256 -- line height: 26 -- part name: HLine -- part 5 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=319 top=111 right=162 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: WSeries -- part 7 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=319 top=192 right=224 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Davis -- part 8 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=319 top=222 right=255 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Indy500 -- part 9 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=319 top=254 right=286 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: NCAA -- part 10 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=319 top=285 right=318 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: SBowl -- part 11 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=319 top=161 right=193 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Derby -- part 12 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=11 top=108 right=128 bottom=181 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Bname -- part 13 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=11 top=126 right=160 bottom=181 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Famous -- part 14 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=78 top=34 right=64 bottom=107 -- title width / last selected line: 0 -- icon id / first selected line: 26635 / 26635 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- on mouseUp answer "by Ed & Barb Will Jan 88" end mouseUp -- part 15 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=10 top=173 right=189 bottom=181 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 256 -- line height: 13 -- part name: Birthstone -- part 16 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=11 top=238 right=269 bottom=181 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Zodiac -- part 17 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=11 top=268 right=318 bottom=184 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Olympics -- part 18 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=180 top=126 right=174 bottom=320 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: BestPic -- part 19 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=180 top=188 right=207 bottom=320 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Actress -- part 20 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=180 top=222 right=239 bottom=320 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Actor -- part 21 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=351 top=33 right=64 bottom=387 -- title width / last selected line: 0 -- icon id / first selected line: 1007 / 1007 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- on mouseUp doMenu print card end mouseUp -- part 22 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=180 top=268 right=318 bottom=320 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 12 -- style flags: 256 -- line height: 16 -- part name: Nobel -- part 23 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=10 top=206 right=223 bottom=181 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 256 -- line height: 13 -- part name: Birthflower